﻿
Partial Class Interfaz_ModuloPlanificacion_PopUpProgreso
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Dim today As DateTime = DateTime.Today
        Calendar1.TodaysDate = today
        Calendar1.SelectedDate = Calendar1.TodaysDate

        If Not Page.IsPostBack Then
            LlenarPorcentaje()
        End If

    End Sub

    Private Sub LlenarPorcentaje()
        For i As Integer = 1 To 100
            Dim it As New ListItem
            it.Value = (i)
            it.Text = (i & " %")
            Me.DropDownList1.Items.Add(it)
        Next

    End Sub

    Private Sub llenar()
        Dim strScript As String

        strScript = "<Script language=javascript>"
        strScript = strScript & " parent.document.getElementById('Form2Container').value  = '1000000';"

        strScript = strScript & " var boton=window.opener.document.getElementById('Button1');"
        strScript = strScript & " boton.click();"
        strScript = strScript & " window.close();"
        strScript = strScript & "</Script>"

        'Page.RegisterStartupScript("ClientScript", strScript)
        ClientScript.RegisterStartupScript(Me.GetType(), "js", strScript)
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnIngresarProgreso.Click
        llenar()
    End Sub
End Class
